From: Glenn Morris <rgm@gnu.org>
Date: Thu, 26 Feb 2009 03:53:15 +0000 (+0000)
Subject: Tobias C. Rittweiler  <tcr at freebits.de>  (tiny change)
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1537
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6a46a9fbb065adc0019242b2d4e2ce93a6678d79;p=emacs.git

Tobias C. Rittweiler  <tcr at freebits.de>  (tiny change)

(sendmail-send-it): `call-process-region' can return a string.  (Bug#2428)
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 4b18da3524d..587b129cb92 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1168,8 +1168,13 @@ external program defined by `sendmail-program'."
 			      )
 		      )
 		     (exit-value (apply 'call-process-region args)))
-		(or (null exit-value) (eq 0 exit-value)
-		    (error "Sending...failed with exit value %d" exit-value)))
+		(cond ((or (null exit-value) (eq 0 exit-value)))
+		      ((numberp exit-value)
+		       (error "Sending...failed with exit value %d" exit-value))
+		      ((stringp exit-value)
+		       (error "Sending...terminated by signal: %s" exit-value))
+		      (t
+		       (error "SENDMAIL-SEND-IT -- fall through: %S" exit-value))))
 	    (or fcc-was-found
 		(error "No recipients")))
 	  (if mail-interactive